home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / CC_C / 3273.ZIP / VGAKIT52.ZIP / RDPOINT.ASM < prev    next >
Assembly Source File  |  1992-10-21  |  1KB  |  65 lines
  1.  
  2.     include    model.inc
  3.  
  4. ;
  5. ;    VGAKIT Version 5.2b
  6. ;
  7. ;    Copyright 1988,89,90,91,92 John Bridges
  8. ;    Free for use in commercial, shareware or freeware applications
  9. ;
  10. ;    RDPOINT.ASM
  11. ;
  12. ;
  13. .data
  14.  
  15.     extrn    curbk:word,adrtbl:dword,ourseg:word
  16.     extrn    maxx:word,maxy:word,scanline:word
  17.  
  18. .code
  19.  
  20.     extrn    newbank:proc
  21.  
  22.     public    rdpoint
  23.     public    rdpoint13x
  24.  
  25. rdpoint    proc    xpos:word,ypos:word
  26.     mov    dx,[xpos]
  27.     mov    bx,[ypos]
  28.     shl    bx,1
  29.     shl    bx,1
  30.     add    dx,word ptr adrtbl[bx]
  31.     mov    ax,word ptr adrtbl[bx+2]
  32.     adc    ax,0
  33.     mov    bx,dx
  34.     cmp    ax,[curbk]
  35.     jz    nonew
  36.     call    newbank            ;switch banks if a new bank entered
  37. nonew:    mov    es,[ourseg]        ;setup screen segment
  38.     mov    al,es:[bx]
  39.     mov    ah,0
  40.     ret
  41. rdpoint    endp
  42.  
  43. rdpoint13x proc    xpos:word,ypos:word
  44.     mov    dx,[xpos]
  45.     mov    bx,[ypos]
  46.     shl    bx,1
  47.     shl    bx,1
  48.     mov    ah,dl
  49.     shr    dx,1
  50.     shr    dx,1
  51.     add    dx,word ptr adrtbl[bx]
  52.     mov    bx,dx
  53.     and    ah,3
  54.     mov    al,4
  55.     mov    dx,3ceh
  56.     out    dx,ax            ;set EGA bit plane read register
  57.     mov    es,[ourseg]        ;setup screen segment
  58.     mov    al,es:[bx]
  59.     mov    ah,0
  60.     ret
  61. rdpoint13x endp
  62.  
  63.     end
  64.  
  65.